home *** CD-ROM | disk | FTP | other *** search
/ Monster Media 1996 #15 / Monster Media Number 15 (Monster Media)(July 1996).ISO / sound / cmod312.zip / CAPAPLA2.ZIP / CAPAPLA2.BAS next >
BASIC Source File  |  1996-03-26  |  6KB  |  82 lines
  1. ' CapaPlay II for Quick Basic
  2. ' credits for this .BAS to Liket / Goto10
  3.  
  4. Declare Function CP_GetIRQ CDECL () as byte
  5. Declare Sub CP_SetIRQ CDECL (BYVAL NewIRQ as byte)
  6. Declare Function CP_GetDMA CDECL () as byte
  7. Declare Sub CP_SetDMA CDECL (BYVAL NewDMA as byte)
  8. Declare Function CP_GetBasePort CDECL () as word
  9. Declare Sub CP_SetBasePort CDECL (BYVAL NewBasePort as word)
  10. Declare Sub CP_SetLineIn CDECL (BYVAL LineInState as byte)
  11. Declare Sub CP_SetMicIn CDECL (BYVAL MicInState as byte)
  12. Declare Function CP_LoadModule CDECL (ModName as string*256,BYVAL StartOffset as long,BYVAL TransferMode as byte) as byte
  13. Declare Function CP_LoadOnlyPatterns CDECL (ModName as string*256,BYVAL StartOffset as long,BYVAL TransferMode as byte) as byte
  14. Declare Sub CP_FreeModule CDECL ()
  15. Declare Sub CP_StartModule CDECL (BYVAL Amplification as byte,BYVAL DefaultPanning as byte,BYVAL TimerMode as byte)
  16. Declare Sub CP_StopModule CDECL ()
  17. Declare Function CP_PauseModule CDECL () as byte
  18. Declare Sub CP_SetSpeedZeroMode CDECL (BYVAL SpeedZeroMode as byte)
  19. Declare Sub CP_SetPanEffectMode CDECL (BYVAL PanEffectMode as byte)
  20. Declare Sub CP_SetVBlankMode CDECL (BYVAL VBlankMode as byte)
  21. Declare Sub CP_SetAmigaLimitsMode CDECL (BYVAL AmigaLimitsMode as byte)
  22. Declare Function CP_GetModuleName CDECL () as string
  23. Declare Function CP_GetModuleType CDECL () as byte
  24. Declare Function CP_GetModuleLength CDECL () as byte
  25. Declare Function CP_GetNumOfPatterns CDECL () as word
  26. Declare Function CP_GetNumOfInstruments CDECL () as byte
  27. Declare Function CP_GetNumOfChannels CDECL () as byte
  28. Declare Function CP_GetNumOfUsedChannels CDECL () as byte
  29. Declare Function CP_GetRestartPosition CDECL () as byte
  30. Declare Function CP_GetUsedPatternMemory CDECL () as long
  31. Declare Function CP_GetUsedInstrumentInfoMemory CDECL () as long
  32. Declare Function CP_GetUsedGUSMemory CDECL () as long
  33. Declare Function CP_GetFileSize CDECL () as long
  34. Declare Sub CP_SetPosition CDECL (BYVAL NewPosition as word)
  35. Declare Sub CP_SetGlobalVolume CDECL (BYVAL NewVolume as word)
  36. Declare Sub CP_SetMainVolume CDECL (BYVAL NewVolume as word)
  37. Declare Sub CP_SetSpeed CDECL (BYVAL NewSpeed as word)
  38. Declare Sub CP_SetTempo CDECL (BYVAL NewTempo as word)
  39. Declare Sub CP_RestoreSpeedAndTempo CDECL ()
  40. Declare Sub CP_SetDefaultPanning CDECL (BYVAL DefaultPanning as byte)
  41. Declare Function CP_GetRow CDECL () as byte
  42. Declare Function CP_GetNumOfRows CDECL (BYVAL PositionNum as word) as word
  43. Declare Function CP_GetPosition CDECL () as byte
  44. Declare Function CP_GetPattern CDECL () as byte
  45. Declare Function CP_GetGlobalVolume CDECL () as byte
  46. Declare Sub CP_RestoreInitialVolume CDECL ()
  47. Declare Function CP_GetMainVolume CDECL () as byte
  48. Declare Function CP_GetSpeed CDECL () as byte
  49. Declare Function CP_GetTempo CDECL () as byte
  50. Declare Function CP_GetPlayingTime CDECL () as word
  51. Declare Function CP_GetTimer CDECL () as long
  52. Declare Function CP_GetLoopCounter CDECL () as byte
  53. Declare Function CP_SetChannelMute CDECL (BYVAL ChannelNum as word,BYVAL MuteState as byte) as byte
  54. Declare Sub CP_SetChannelPanning CDECL (BYVAL ChannelNum as word,BYVAL NewPanning as byte)
  55. Declare Sub CP_PlaySample CDECL (BYVAL ChannelNum as word,BYVAL InstrumentNum as word,BYVAL SampleNum as word,BYVAL Note as byte,BYVAL Octave as byte)
  56. Declare Sub CP_StopSample CDECL (BYVAL ChannelNum as word)
  57. Declare Function CP_GetChannelNote CDECL (BYVAL ChannelNum as word) as byte
  58. Declare Function CP_GetChannelOctave CDECL (BYVAL ChannelNum as word) as byte
  59. Declare Function CP_GetChannelVolume CDECL (BYVAL ChannelNum as word) as byte
  60. Declare Function CP_GetChannelEffect CDECL (BYVAL ChannelNum as word) as byte
  61. Declare Function CP_GetChannelEffectParams CDECL (BYVAL ChannelNum as word) as byte
  62. Declare Function CP_GetChannelInstrument CDECL (BYVAL ChannelNum as word) as byte
  63. Declare Function CP_GetChannelSample CDECL (BYVAL ChannelNum as word) as byte
  64. Declare Function CP_GetChannelBar CDECL (BYVAL ChannelNum as word) as byte
  65. Declare Function CP_GetChannelNoteTrigger CDECL (BYVAL ChannelNum as word) as byte
  66. Declare Function CP_GetChannelPanning CDECL (BYVAL ChannelNum as word) as byte
  67. Declare Function CP_GetChannelMute CDECL (BYVAL ChannelNum as word) as byte
  68. Declare Function CP_SetSampleMute CDECL (BYVAL InstrumentNum as word,BYVAL SampleNum as word,BYVAL MuteState as byte) as byte
  69. Declare Function CP_GetInstrumentName CDECL (BYVAL InstrumentNum as word) as string
  70. Declare Function CP_GetNumOfSamples CDECL (BYVAL InstrumentNum as word) as byte
  71. Declare Function CP_GetSampleName CDECL (BYVAL InstrumentNum as word,BYVAL SampleNum as word) as string
  72. Declare Function CP_GetSampleSize CDECL (BYVAL InstrumentNum as word,BYVAL SampleNum as word) as long
  73. Declare Function CP_GetSampleC4Spd CDECL (BYVAL InstrumentNum as word,BYVAL SampleNum as word) as word
  74. Declare Function CP_GetSampleVolume CDECL (BYVAL InstrumentNum as word,BYVAL SampleNum as word) as byte
  75. Declare Function CP_GetSamplePanning CDECL (BYVAL InstrumentNum as word,BYVAL SampleNum as word) as byte
  76. Declare Function CP_GetSampleLoopType CDECL (BYVAL InstrumentNum as word,BYVAL SampleNum as word) as byte
  77. Declare Function CP_GetSampleLoopBegin CDECL (BYVAL InstrumentNum as word,BYVAL SampleNum as word) as long
  78. Declare Function CP_GetSampleLength CDECL (BYVAL InstrumentNum as word,BYVAL SampleNum as word) as long
  79. Declare Function CP_GetSample16Bit CDECL (BYVAL InstrumentNum as word,BYVAL SampleNum as word) as byte
  80. Declare Function CP_GetSampleMute CDECL (BYVAL InstrumentNum as word,BYVAL SampleNum as word) as byte
  81.  
  82.